home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 November / 1989-11.d64 / vertical scroll (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  39 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 gosub1000
  3. 30 poke53280,0:poke53281,0:print"[147]   copyright 1989 compute! pub., inc."
  4. 40 printtab(11)"all rights reserved"
  5. 50 print"[158]           vertical scroller"
  6. 60 print"[159]     sys 49201 moves screen down"
  7. 70 print"[159]     sys 49152 moves screen back up"
  8. 80 print"[154]   press any key for a demonstration"
  9. 90 poke 252,24:rem set screen mode
  10. 100 geta$:ifa$=""then100
  11. 110 sys49201
  12. 120 sys49152
  13. 130 goto100
  14. 1000 forad=49152to49247:readby
  15. 1010 pokead,by:x=x+by:nextad
  16. 1020 ifx<>15241thenprint"error in data statements.":end
  17. 1030 v=53248:pokev+21,255:pokev+29,255
  18. 1040 fori=832to896:pokei,255:nexti
  19. 1050 fori=2040to2047:pokei,13:nexti
  20. 1060 fori=v+1tov+16step2:pokei,247:nexti
  21. 1070 fori=0to8step2:pokev+i,24+i*24:nexti
  22. 1080 fori=0to4step2:pokev+i+10,i*24:nexti
  23. 1090 pokev+16,224:fori=39to46:pokev+i,0:next
  24. 1100 return
  25. 1110 data120,169,0,133,251,166,251
  26. 1120 data173,18,208,208,251,173,18
  27. 1130 data208,205,18,208,240,251,41
  28. 1140 data7,5,252,141,17,208,232
  29. 1150 data208,238,230,251,230,251,165
  30. 1160 data251,201,207,144,221,165,252
  31. 1170 data9,27,141,17,208,88,96
  32. 1180 data120,169,207,133,251,166,251
  33. 1190 data173,18,208,208,251,173,18
  34. 1200 data208,205,18,208,240,251,41
  35. 1210 data7,5,252,141,17,208,232
  36. 1220 data208,238,198,251,198,251,165
  37. 1230 data251,201,2,176,221,169,11
  38. 1240 data141,17,208,88,96
  39.